home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86oct.arc / ALLOC.ARC / MYTERMIN.DEF < prev    next >
Text File  |  1985-07-12  |  896b  |  32 lines
  1. DEFINITION MODULE MyTerminal;
  2.  
  3. (* Some small but useful additions to the Terminal module. *)
  4.  
  5. EXPORT QUALIFIED WriteString, WriteLn, Write, Read, ClearScreen, Beep,
  6.     WriteLnString, WriteInt, WriteCard, pause, fatal;
  7.  
  8. PROCEDURE WriteString(s:ARRAY OF CHAR);
  9. PROCEDURE WriteLn;
  10. PROCEDURE Write(c:CHAR);
  11. PROCEDURE Read(VAR c:CHAR);
  12. PROCEDURE ClearScreen;
  13. PROCEDURE Beep;
  14.  
  15. PROCEDURE WriteLnString(s:ARRAY OF CHAR);
  16. PROCEDURE WriteInt(i:INTEGER; spaces:CARDINAL);
  17. PROCEDURE WriteCard(c, spaces:CARDINAL);
  18.  
  19. PROCEDURE pause(msg:ARRAY OF CHAR);
  20. (* Prevents the screen from blanking and returning to the Finder until the
  21.    user hits a key.  msg is typed out. *)
  22.  
  23. PROCEDURE fatal(msg:ARRAY OF CHAR);
  24. (* Prints the message, does a pause, and HALTs. *)
  25.  
  26. END MyTerminal.
  27. s typed out. *)
  28.  
  29. PROCEDURE fatal(msg:ARRAY OF CHAR);
  30. (* Prints the message, does a pause, and HALTs. *)
  31.  
  32.